home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / wwbbs.lha / WWBBS / Install < prev    next >
Text File  |  1994-09-22  |  3KB  |  162 lines
  1. (set is-installed
  2.     (exists "WWBBS:" (noreq))
  3. )
  4.  
  5. (if is-installed
  6.     (
  7.         (message "If World Wide BBS is currently running, then quit the program before continuing.")
  8.         (run "Avail >NIL: FLUSH")
  9.         (run "Assign WWBBSAUX: DISMOUNT")
  10.         (run "Resident WWBBS:BBSRx REMOVE")
  11.         (set @default-dest (expandpath "WWBBS:"))
  12.     )
  13.     (
  14.         (set default-dest
  15.             (askdir
  16.                 (prompt "Where would you like to install World Wide BBS?\n(A directory will be created)")
  17.                 (help @askdir-help)
  18.                 (default @default-dest)
  19.             )
  20.         )
  21.  
  22.         (set @default-dest default-dest)
  23.  
  24.         (set @default-dest
  25.             (tackon @default-dest "WWBBS")
  26.         )
  27.     )
  28. )
  29.  
  30. (message "Installing World Wide BBS in\n" @default-dest)
  31.  
  32. (set wwbbs-dir @default-dest)
  33.  
  34. (if (NOT is-installed)
  35.     (makedir wwbbs-dir
  36.         (prompt "Create new directory\n" wwbbs-dir)
  37.         (help @makedir-help)
  38.         (infos)
  39.     )
  40. )
  41.  
  42. (if (NOT is-installed)
  43.     (makeassign "WWBBS" wwbbs-dir)
  44. )
  45.  
  46. (copylib
  47.     (prompt "Copy wwbbs.library to LIBS:")
  48.     (help @copylib-help)
  49.     (source "Libs/wwbbs.library")
  50.     (dest "LIBS:")
  51.     (confirm)
  52. )
  53.  
  54. (copyfiles
  55.     (prompt "Copy handler")
  56.     (help @copyfiles-help)
  57.     (source "L/wwbbsaux-handler")
  58.     (dest "L:")
  59.     (confirm)
  60. )
  61.  
  62. (copyfiles
  63.     (prompt "Copy DOS driver")
  64.     (help @copyfiles-help)
  65.     (source "DOSDrivers/WWBBSAUX")
  66.     (dest "DEVS:DOSDrivers")
  67.     (infos)
  68.     (confirm)
  69. )
  70.  
  71. (copyfiles
  72.     (prompt "Copy binaries")
  73.     (help @copyfiles-help)
  74.     (source "Bin")
  75.     (dest "WWBBS:")
  76.     (all)
  77.     (infos)
  78.     (confirm)
  79. )
  80.  
  81. (set copy-config
  82.     (if is-installed
  83.         (askbool
  84.             (prompt "Do you wish to copy over your old config files?")
  85.             (help "")
  86.             (default 0)
  87.         )
  88.         1
  89.     )
  90. )
  91.  
  92. (if copy-config
  93.     (copyfiles
  94.         (prompt "Copy config files")
  95.         (help @copyfiles-help)
  96.         (source "Config")
  97.         (dest "WWBBS:")
  98.         (all)
  99.         (confirm)
  100.     )
  101. )
  102.  
  103. (set copy-rexx
  104.     (if is-installed
  105.         (askbool
  106.             (prompt "Do you wish to copy over your old rexx script files?")
  107.             (help "")
  108.             (default 0)
  109.         )
  110.         1
  111.     )
  112. )
  113.  
  114. (if copy-rexx
  115.     (copyfiles
  116.         (prompt "Copy REXX files")
  117.         (help @copyfiles-help)
  118.         (source "Rexx")
  119.         (dest "WWBBS:Rexx")
  120.         (all)
  121.         (confirm)
  122.     )
  123. )
  124.  
  125. (if (NOT is-installed)
  126.     (makedir "WWBBS:Users"
  127.         (prompt "Create new directory\nWWBBS:Users")
  128.         (help @makedir-help)
  129.     )
  130. )
  131.  
  132. (if (NOT is-installed)
  133.     (makedir "WWBBS:Logs"
  134.         (prompt "Create new directory\nWWBBS:Logs")
  135.         (help @makedir-help)
  136.     )
  137. )
  138.  
  139. (if (NOT is-installed)
  140.     (makedir "WWBBS:Menus"
  141.         (prompt "Create new directory\nWWBBS:Menus")
  142.         (help @makedir-help)
  143.     )
  144. )
  145.  
  146. (if
  147.     (exists "WWBBS:BBSRx")
  148.     (protect "WWBBS:BBSRx" "+P")
  149. )
  150.  
  151. (if (NOT is-installed)
  152.     (startup "World Wide BBS"
  153.         (prompt "Add assign to S:User-startup")
  154.         (help @startup-help)
  155.         (command "Assign WWBBS: \"" wwbbs-dir "\"\n")
  156.         (command "Resident WWBBS:BBSRx")
  157.     )
  158. )
  159.  
  160. (run "Resident WWBBS:BBSRx")
  161. (run "Mount DEVS:DOSDrivers/WWBBSAUX")
  162.